-- card: 3120 from stack: in
-- bmap block id: 0
-- flags: 0000
-- background id: 2662
-- name: readFile


-- part 3 (button)
-- low flags: 00
-- high flags: A003
-- rect: left=207 top=303 right=325 bottom=307
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Read File
----- HyperTalk script -----
on mouseUp
  get fileName("TEXT")
  if it is empty then exit mouseUp
  put it into fileName

  put 32760 into size
  put empty into card field "text"
  open file fileName
  read from file fileName for (size+1)
  close file fileName
  put the number of chars of it into count
  if count > (size-1) then
    beep
    answer "Sorry, text file > "&size&" Chars." with "OK"
    put it into card field "text"
  else
    put it into card field "text"
  end if
end mouseUp



-- part 4 (field)
-- low flags: 01
-- high flags: 0007
-- rect: left=10 top=8 right=285 bottom=499
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: text